home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00140.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  734 b   |  27 lines
  1. on exitFrame
  2.   global advance, mnv, ppl
  3.   if getAt(mnv, 1) > 1 then
  4.     set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  5.     setAt(mnv, 1, getAt(mnv, 1) - 1)
  6.   else
  7.     set the member of sprite getAt(ppl, 1) to member(1, 2)
  8.   end if
  9.   if advance = 1 then
  10.     foemov(43, 44, 60, 65, 66, 13, 7, 2, 2, 1, 12, 4)
  11.     strata2(1)
  12.   else
  13.     if (advance = 2) or (advance = 3) then
  14.       foemov(76, 77, 87, 94, 95, 8, 5, 3, 3, 2, 10, 3)
  15.       foemov(103, 104, 116, 122, 123, 13, 7, 4, 4, 3, 9, 5)
  16.       strata2(3)
  17.     else
  18.       if advance = 4 then
  19.         foemov(43, 44, 60, 65, 66, 13, 7, 2, 2, 1, 12, 4)
  20.         strata2(3)
  21.       else
  22.         strata2(3)
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.